home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / modula-3 / m3-3.5 / m3-3 / usr / local / modula3-3.5.4-B / lib / elisp / m3ide.el < prev    next >
Encoding:
Text File  |  1995-11-16  |  2.5 KB  |  67 lines
  1. ; This file is part of m3ide, a simple development environment for M3    
  2. ; Copyright (C) 1995 Michel Dagenais                                     
  3. ;                                                                        
  4. ; This library is free software; you can redistribute it and/or          
  5. ; modify it under the terms of the GNU Library General Public            
  6. ; License as published by the Free Software Foundation; either           
  7. ; version 2 of the License, or (at your option) any later version.       
  8. ;                                                                        
  9. ; This library is distributed in the hope that it will be useful,        
  10. ; but WITHOUT ANY WARRANTY; without even the implied warranty of         
  11. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU      
  12. ; Library General Public License for more details.                       
  13. ;                                                                        
  14. ; You should have received a copy of the GNU Library General Public      
  15. ; License along with this library; if not, write to the Free             
  16. ; Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.     
  17. ;                                                                        
  18. ; For more information on this program, contact Michel Dagenais at       
  19. ; dagenais@vlsi.polymtl.ca or Electrical Eng. Dept., Ecole Polytechnique 
  20. ; P.O. Box 6079, Station A, Montreal, Quebec, Canada, H3C 3A7.           
  21.  
  22. ;
  23. ; Load the needed lisp files
  24. ;
  25.  
  26. (require 'modula3)
  27. (require 'm3menu)
  28. (provide 'm3ide)
  29.  
  30. ;
  31. ; For each file type, setup the relevant variables which will determine
  32. ; the menu items and commands available
  33. ;
  34.  
  35. (defun m3-ide-mode () (interactive)
  36.   "start the modula-3 mode with the ide process and menus"
  37.   (modula-3-mode)
  38.   (make-local-variable 'm3-is-form)
  39.   (make-local-variable 'm3-is-program)
  40.   (setq m3-is-form ())
  41.   (setq m3-is-program t)
  42.   (check-m3-menu)
  43.   ; insert a header if empty?
  44. )
  45.  
  46. (defun formsvbt-ide-mode () (interactive)
  47.   "start the modula-3 mode with the ide process and menus"
  48.   (make-local-variable 'm3-is-form)
  49.   (make-local-variable 'm3-is-program)
  50.   (setq m3-is-form t)
  51.   (setq m3-is-program ())
  52.   (check-m3-menu)
  53.   ; insert a header if empty?
  54. )
  55.  
  56. (defun m3makefile-ide-mode () (interactive)
  57.   "start the modula-3 mode with the ide process and menus"
  58.   (make-local-variable 'm3-is-form)
  59.   (make-local-variable 'm3-is-program)
  60.   (setq m3-is-form ())
  61.   (setq m3-is-program ())
  62.   (check-m3-menu)
  63.   ; insert a header if empty?
  64. )
  65.  
  66.  
  67.